home *** CD-ROM | disk | FTP | other *** search
/ CEA Showcase of Award Wi…ing Projects 1998 to 2001 / CEA Showcase.iso / pc / backup / backup.dir / Internal_44_indicator.ls < prev    next >
Encoding:
Text File  |  2001-07-23  |  507 b   |  16 lines
  1. global pAwardDatabase, pCurrentRecord, pCategory, pList
  2.  
  3. on reset me
  4.   if pCurrentRecord = 0 then
  5.     member("indicator").text = EMPTY
  6.   else
  7.     myString = "Showing" && pCategory && "award in" && pAwardDatabase[pCurrentRecord][#year] && "for" && pAwardDatabase[pCurrentRecord][#AwardCategory]
  8.     if pList.count = 1 then
  9.       myCount = pList.count && "record found"
  10.     else
  11.       myCount = pList.count && "records found"
  12.     end if
  13.     member("indicator").text = myCount & RETURN & myString
  14.   end if
  15. end
  16.